Voorbeeld van de functie InStr

Dit voorbeeld maakt gebruik van de functie InStr om de positie waarop een tekenreeks de eerste keer in een andere tekenreeks voorkomt, als resultaat te geven.

Dim SearchString, SearchChar, MyPos
SearchString ="XXpXXpXXPXXP"    ' Tekenreeks waarin wordt gezocht.
SearchChar = "P"    ' Zoekt naar "P".

' Een tekstvergelijking die op positie 4 begint. Het resultaat is 6.
MyPos = Instr(4, SearchString, SearchChar, 1)    

' Een binaire vergelijking die op positie 1 begint. Het resultaat is 9.
MyPos = Instr(1, SearchString, SearchChar, 0)

' Vergelijking is standaard binair (laatste argument is weggelaten).
MyPos = Instr(SearchString, SearchChar)    ' Geeft 9.

MyPos = Instr(1, SearchString, "W")    ' Geeft 0.